home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk161 / mortcalc25 / mc26.h < prev    next >
C/C++ Source or Header  |  1995-03-19  |  9KB  |  798 lines
  1. struct Image FillImage = {
  2.     0,10,
  3.     640,512,
  4.     2,
  5.     NULL,
  6.     0,
  7.     1,
  8.     NULL
  9. };
  10.  
  11. struct Gadget FillGadg = {
  12.     NULL,
  13.     0,0,
  14.     0,0,
  15.     GADGIMAGE,
  16.     NULL,
  17.     BOOLGADGET,
  18.     (APTR)&FillImage,
  19.     NULL, NULL, NULL, NULL, NULL, NULL
  20. };
  21.  
  22.  
  23.  UBYTE Gadget17SIBuff[35] =
  24.     "Welcome! PAYMENT selected";
  25.  struct StringInfo Gadget17SInfo = {
  26.     Gadget17SIBuff,    
  27.     NULL,    
  28.     0,    
  29.     35,    
  30.     0,    
  31.     0,0,0,0,0,    
  32.     0,    
  33.     0,    
  34.     NULL    
  35. };
  36.  
  37.  SHORT BorderVectors5[] = {
  38.     0,0,
  39.     257,0,
  40.     257,9,
  41.     0,9,
  42.     0,0
  43. };
  44.  struct Border Border5 = {
  45.     -1,-1,    
  46.     2,1,JAM1,    
  47.     5,    
  48.     BorderVectors5,    
  49.     NULL    
  50. };
  51.  
  52.  struct Gadget Gadget17 = {
  53.     &FillGadg,    
  54.     132,118,    
  55.     263,8,    
  56.     NULL,    
  57.     GADGIMMEDIATE+RELVERIFY,    
  58.     STRGADGET,    
  59.     (APTR)&Border5,    
  60.     NULL,    
  61.     NULL,    
  62.     NULL,    
  63.     (APTR)&Gadget17SInfo,    
  64.     NULL,    
  65.     NULL    
  66. };
  67.  
  68.  UBYTE Gadget16SIBuff[18] = "$ 5858.09    ";
  69.  struct StringInfo Gadget16SInfo = {
  70.     Gadget16SIBuff,    
  71.     NULL,    
  72.     0,    
  73.     18,    
  74.     0,    
  75.     0,0,0,0,0,    
  76.     0,    
  77.     0,    
  78.     NULL    
  79. };
  80.  
  81.  SHORT BorderVectors6[] = {
  82.     0,0,
  83.     113,0,
  84.     113,9,
  85.     0,9,
  86.     0,1
  87. };
  88.  struct Border Border6 = {
  89.     -1,-1,    
  90.     2,1,COMPLEMENT,    
  91.     5,    
  92.     BorderVectors6,    
  93.     NULL    
  94. };
  95.  
  96.  struct Gadget Gadget16 = {
  97.     &Gadget17,    
  98.     274,102,    
  99.     118,9,    
  100.     NULL,    
  101.     NULL,    
  102.     STRGADGET,    
  103.     (APTR)&Border6,    
  104.     NULL,    
  105.     NULL,    
  106.     NULL,    
  107.     (APTR)&Gadget16SInfo,    
  108.     NULL,    
  109.     NULL    
  110. };
  111.  
  112.  UBYTE Gadget15SIBuff[18] = "$ 132.15     ";
  113.  struct StringInfo Gadget15SInfo = {
  114.     Gadget15SIBuff,    
  115.     NULL,    
  116.     0,    
  117.     18,    
  118.     0,    
  119.     0,0,0,0,0,    
  120.     0,    
  121.     0,    
  122.     NULL    
  123. };
  124.  
  125.  SHORT BorderVectors1[] = {
  126.     0,0,
  127.     113,0,
  128.     113,9,
  129.     0,9,
  130.     0,1
  131. };
  132.  struct Border Border1 = {
  133.     -1,-1,    
  134.     2,1,COMPLEMENT,    
  135.     5,    
  136.     BorderVectors1,    
  137.     NULL    
  138. };
  139.  
  140.  struct Gadget Gadget15 = {
  141.     &Gadget16,    
  142.     133,102,    
  143.     118,9,    
  144.     NULL,    
  145.     GADGIMMEDIATE+RELVERIFY,    
  146.     STRGADGET,    
  147.     (APTR)&Border1,    
  148.     NULL,    
  149.     NULL,    
  150.     NULL,    
  151.     (APTR)&Gadget15SInfo,    
  152.     NULL,    
  153.     NULL    
  154. };
  155.  
  156.  UBYTE Gadget14SIBuff[18] = "$ 0.00       ";
  157.  struct StringInfo Gadget14SInfo = {
  158.     Gadget14SIBuff,    
  159.     NULL,    
  160.     0,    
  161.     18,    
  162.     0,    
  163.     0,0,0,0,0,    
  164.     0,    
  165.     0,    
  166.     NULL    
  167. };
  168.  
  169.  SHORT BorderVectors7[] = {
  170.     0,0,
  171.     113,0,
  172.     113,9,
  173.     0,9,
  174.     0,1
  175. };
  176.  struct Border Border7 = {
  177.     -1,-1,    
  178.     2,1,COMPLEMENT,    
  179.     5,    
  180.     BorderVectors7,    
  181.     NULL    
  182. };
  183.  
  184.  struct Gadget Gadget14 = {
  185.     &Gadget15,    
  186.     133,87,    
  187.     118,9,    
  188.     NULL,    
  189.     GADGIMMEDIATE+RELVERIFY,    
  190.     STRGADGET,    
  191.     (APTR)&Border7,    
  192.     NULL,    
  193.     NULL,    
  194.     NULL,    
  195.     (APTR)&Gadget14SInfo,    
  196.     NULL,    
  197.     NULL    
  198. };
  199.  
  200.  UBYTE Gadget13SIBuff[18] =
  201.     " 10 yrs 0 mo.";
  202.  struct StringInfo Gadget13SInfo = {
  203.     Gadget13SIBuff,    
  204.     NULL,    
  205.     0,    
  206.     18,    
  207.     0,    
  208.     0,0,0,0,0,    
  209.     0,    
  210.     0,    
  211.     NULL    
  212. };
  213.  
  214.  SHORT BorderVectors8[] = {
  215.     0,0,
  216.     113,0,
  217.     113,9,
  218.     0,9,
  219.     0,1
  220. };
  221.  struct Border Border8 = {
  222.     -1,-1,    
  223.     2,1,COMPLEMENT,    
  224.     5,    
  225.     BorderVectors8,    
  226.     NULL    
  227. };
  228.  
  229.  struct Gadget Gadget13 = {
  230.     &Gadget14,    
  231.     132,72,    
  232.     118,9,    
  233.     NULL,    
  234.     GADGIMMEDIATE+RELVERIFY,    
  235.     STRGADGET,    
  236.     (APTR)&Border8,    
  237.     NULL,    
  238.     NULL,    
  239.     NULL,    
  240.     (APTR)&Gadget13SInfo,    
  241.     NULL,    
  242.     NULL    
  243. };
  244.  
  245.  UBYTE Gadget12SIBuff[18] =
  246.     " 10.00 %     ";
  247.  struct StringInfo Gadget12SInfo = {
  248.     Gadget12SIBuff,    
  249.     NULL,    
  250.     0,    
  251.     18,    
  252.     0,    
  253.     0,0,0,0,0,    
  254.     0,    
  255.     0,    
  256.     NULL    
  257. };
  258.  
  259.  SHORT BorderVectors9[] = {
  260.     0,0,
  261.     113,0,
  262.     113,9,
  263.     0,9,
  264.     0,1
  265. };
  266.  struct Border Border9 = {
  267.     -1,-1,    
  268.     2,1,COMPLEMENT,    
  269.     5,    
  270.     BorderVectors9,    
  271.     NULL    
  272. };
  273.  
  274.  struct Gadget Gadget12 = {
  275.     &Gadget13,    
  276.     132,57,    
  277.     118,9,    
  278.     NULL,    
  279.     GADGIMMEDIATE+RELVERIFY,    
  280.     STRGADGET,    
  281.     (APTR)&Border9,    
  282.     NULL,    
  283.     NULL,    
  284.     NULL,    
  285.     (APTR)&Gadget12SInfo,    
  286.     NULL,    
  287.     NULL    
  288. };
  289.  
  290.  UBYTE Gadget11SIBuff[18] =
  291.     "$ 10,000.00  ";
  292.  struct StringInfo Gadget11SInfo = {
  293.     Gadget11SIBuff,    
  294.     NULL,    
  295.     0,    
  296.     18,    
  297.     0,    
  298.     0,0,0,0,0,    
  299.     0,    
  300.     0,    
  301.     NULL    
  302. };
  303.  
  304.  SHORT BorderVectors12[] = {
  305.     0,0,
  306.     113,0,
  307.     113,9,
  308.     0,9,
  309.     0,1
  310. };
  311.  struct Border Border12 = {
  312.     -1,-1,    
  313.     2,1,COMPLEMENT,    
  314.     5,    
  315.     BorderVectors12,    
  316.     NULL    
  317. };
  318.  
  319.  struct Gadget Gadget11 = {
  320.     &Gadget12,    
  321.     133,42,    
  322.     118,9,    
  323.     NULL,    
  324.     GADGIMMEDIATE+RELVERIFY,    
  325.     STRGADGET,    
  326.     (APTR)&Border12,    
  327.     NULL,    
  328.     NULL,    
  329.     NULL,    
  330.     (APTR)&Gadget11SInfo,    
  331.     NULL,    
  332.     NULL    
  333. };
  334.  
  335.  UBYTE Gadget10SIBuff[5] =     "1  ";
  336.  struct StringInfo Gadget10SInfo = {
  337.     Gadget10SIBuff,    
  338.     NULL,    
  339.     0,    
  340.     5,    
  341.     0,    
  342.     0,0,0,0,0,    
  343.     0,    
  344.     0,    
  345.     NULL    
  346. };
  347.  
  348.  SHORT BorderVectors3[] = {
  349.     0,0,
  350.     25,0,
  351.     25,9,
  352.     0,9,
  353.     0,0
  354. };
  355.  struct Border Border3 = {
  356.     -1,-1,    
  357.     2,1,JAM1,    
  358.     5,    
  359.     BorderVectors3,    
  360.     NULL    
  361. };
  362.  
  363.  struct Gadget Gadget10 = {
  364.     &Gadget11,    
  365.     405,57,    
  366.     28,8,    
  367.     NULL,    
  368.     GADGIMMEDIATE+RELVERIFY+LONGINT,    
  369.     STRGADGET,    
  370.     (APTR)&Border3,    
  371.     NULL,    
  372.     NULL,    
  373.     NULL,    
  374.     (APTR)&Gadget10SInfo,    
  375.     NULL,    
  376.     NULL    
  377. };
  378.  
  379.  SHORT BorderVectors2[] = {
  380.     0,0,
  381.     60,0,
  382.     60,10,
  383.     0,10,
  384.     0,0
  385. };
  386.  struct Border Border2 = {
  387.     -1,-1,    
  388.     2,1,JAM1,    
  389.     5,    
  390.     BorderVectors2,    
  391.     NULL    
  392. };
  393.  
  394.  struct IntuiText IText1 = {
  395.     2,1,JAM2,    
  396.     9,1,    
  397.     NULL,    
  398.     (UBYTE *)"U.S.A.",    
  399.     NULL    
  400. };
  401.  
  402.  struct Gadget Gadget9 = {
  403.     &Gadget10,    
  404.     272,41,    
  405.     59,9,    
  406.     SELECTED,    
  407.     GADGIMMEDIATE+RELVERIFY+TOGGLESELECT,    
  408.     BOOLGADGET,    
  409.     (APTR)&Border2,    
  410.     NULL,    
  411.     &IText1,    
  412.     NULL,    
  413.     NULL,    
  414.     NULL,    
  415.     NULL    
  416. };
  417.  
  418.  SHORT BorderVectors10[] = {
  419.     0,0,
  420.     97,0,
  421.     97,10,
  422.     0,10,
  423.     0,0
  424. };
  425.  struct Border Border10 = {
  426.     -1,-1,    
  427.     2,1,JAM1,    
  428.     5,    
  429.     BorderVectors10,    
  430.     NULL    
  431. };
  432.  
  433.  struct IntuiText IText3 = {
  434.     2,1,JAM2,    
  435.     15,1,    
  436.     NULL,    
  437.     (UBYTE *)"Calculate",    
  438.     NULL    
  439. };
  440.  
  441.  struct Gadget Gadget8 = {
  442.     &Gadget9,    
  443.     422,118,    
  444.     96,9,    
  445.     NULL,    
  446.     GADGIMMEDIATE+RELVERIFY,    
  447.     BOOLGADGET,    
  448.     (APTR)&Border10,    
  449.     NULL,    
  450.     &IText3,    
  451.     NULL,    
  452.     NULL,    
  453.     NULL,    
  454.     NULL    
  455. };
  456.  
  457. SHORT BorderVectors4[] = {
  458.     0,0,
  459.     97,0,
  460.     97,10,
  461.     0,10,
  462.     0,0
  463. };
  464.  struct Border Border4 = {
  465.     -1,-1,    
  466.     2,1,JAM1,    
  467.     5,    
  468.     BorderVectors4,    
  469.     NULL    
  470. };
  471.  
  472.  struct IntuiText IText2 = {
  473.     2,1,JAM2,    
  474.     24,1,    
  475.     NULL,    
  476.     (UBYTE *)"Print",    
  477.     NULL    
  478. };
  479.  
  480.  struct Gadget Gadget7 = {
  481.     &Gadget8,    
  482.     422,102,    
  483.     96,9,    
  484.     NULL,    
  485.     GADGIMMEDIATE+RELVERIFY+TOGGLESELECT,    
  486.     BOOLGADGET,    
  487.     (APTR)&Border4,    
  488.     NULL,    
  489.     &IText2,    
  490.     NULL,    
  491.     NULL,    
  492.     NULL,    
  493.     NULL    
  494. };
  495.  
  496.  SHORT BorderVectors11[] = {
  497.     0,0,
  498.     60,0,
  499.     60,10,
  500.     0,10,
  501.     0,0
  502. };
  503.  struct Border Border11 = {
  504.     -1,-1,    
  505.     2,1,JAM1,    
  506.     5,    
  507.     BorderVectors11,    
  508.     NULL    
  509. };
  510.  
  511.  struct IntuiText IText4 = {
  512.     2,1,JAM2,    
  513.     5,1,    
  514.     NULL,    
  515.     (UBYTE *)"CANADA",    
  516.     NULL    
  517. };
  518.  
  519.  struct Gadget Gadget6 = {
  520.     &Gadget7,    
  521.     370,41,    
  522.     59,9,    
  523.     NULL,    
  524.     GADGIMMEDIATE+RELVERIFY+TOGGLESELECT,    
  525.     BOOLGADGET,    
  526.     (APTR)&Border11,    
  527.     NULL,    
  528.     &IText4,    
  529.     NULL,    
  530.     NULL,    
  531.     NULL,    
  532.     NULL    
  533. };
  534.  SHORT BorderVectors13[] = {
  535.     0,0,
  536.     96,0,
  537.     96,10,
  538.     0,10,
  539.     0,0
  540. };
  541.  struct Border Border13 = {
  542.     -1,-1,    
  543.     2,1,JAM1,    
  544.     5,    
  545.     BorderVectors13,    
  546.     NULL    
  547. };
  548.  
  549.  struct IntuiText IText5 = {
  550.     2,1,JAM2,    
  551.     16,1,    
  552.     NULL,    
  553.     (UBYTE *)"Payment",    
  554.     NULL    
  555. };
  556.  
  557.  struct Gadget Gadget5 = {
  558.     &Gadget6,    
  559.     22,101,    
  560.     95,9,    
  561.     SELECTED,    
  562.     GADGIMMEDIATE+RELVERIFY+TOGGLESELECT,    
  563.     BOOLGADGET,    
  564.     (APTR)&Border13,    
  565.     NULL,    
  566.     &IText5,    
  567.     NULL,    
  568.     NULL,    
  569.     NULL,    
  570.     NULL    
  571. };
  572.  
  573.  SHORT BorderVectors14[] = {
  574.     0,0,
  575.     96,0,
  576.     96,10,
  577.     0,10,
  578.     0,0
  579. };
  580.  struct Border Border14 = {
  581.     -1,-1,    
  582.     2,1,JAM1,    
  583.     5,    
  584.     BorderVectors14,    
  585.     NULL    
  586. };
  587.  
  588.  struct IntuiText IText6 = {
  589.     2,1,JAM2,    
  590.     16,1,    
  591.     NULL,    
  592.     (UBYTE *)"Balance",    
  593.     NULL    
  594. };
  595.  
  596.  struct Gadget Gadget4 = {
  597.     &Gadget5,    
  598.     23,86,    
  599.     95,9,    
  600.     NULL,    
  601.     GADGIMMEDIATE+RELVERIFY+TOGGLESELECT,    
  602.     BOOLGADGET,    
  603.     (APTR)&Border14,    
  604.     NULL,    
  605.     &IText6,    
  606.     NULL,    
  607.     NULL,    
  608.     NULL,    
  609.     NULL    
  610. };
  611.  
  612.  SHORT BorderVectors15[] = {
  613.     0,0,
  614.     98,0,
  615.     98,10,
  616.     0,10,
  617.     0,0
  618. };
  619.  struct Border Border15 = {
  620.     -1,-1,    
  621.     2,1,JAM1,    
  622.     5,    
  623.     BorderVectors15,    
  624.     NULL    
  625. };
  626.  
  627.  struct IntuiText IText7 = {
  628.     2,1,JAM2,    
  629.     15,1,    
  630.     NULL,    
  631.     (UBYTE *)"Period",    
  632.     NULL    
  633. };
  634.  
  635.  struct Gadget Gadget3 = {
  636.     &Gadget4,    
  637.     22,71,    
  638.     97,9,    
  639.     NULL,    
  640.     GADGIMMEDIATE+RELVERIFY+TOGGLESELECT,    
  641.     BOOLGADGET,    
  642.     (APTR)&Border15,    
  643.     NULL,    
  644.     &IText7,    
  645.     NULL,    
  646.     NULL,    
  647.     NULL,    
  648.     NULL    
  649. };
  650.  
  651.  SHORT BorderVectors16[] = {
  652.     0,0,
  653.     98,0,
  654.     98,10,
  655.     0,10,
  656.     0,0
  657. };
  658.  struct Border Border16 = {
  659.     -1,-1,    
  660.     2,1,JAM1,    
  661.     5,    
  662.     BorderVectors16,    
  663.     NULL    
  664. };
  665.  
  666.  struct IntuiText IText8 = {
  667.     2,1,JAM2,    
  668.     13,1,    
  669.     NULL,    
  670.     (UBYTE *)"Rate",    
  671.     NULL    
  672. };
  673.  
  674.  struct Gadget Gadget2 = {
  675.     &Gadget3,    
  676.     22,56,    
  677.     97,9,    
  678.     NULL,    
  679.     GADGIMMEDIATE+RELVERIFY+TOGGLESELECT,    
  680.     BOOLGADGET,    
  681.     (APTR)&Border16,    
  682.     NULL,    
  683.     &IText8,    
  684.     NULL,    
  685.     NULL,    
  686.     NULL,    
  687.     NULL    
  688. };
  689.  
  690.  SHORT BorderVectors17[] = {
  691.     0,0,
  692.     99,0,
  693.     99,10,
  694.     0,10,
  695.     0,0
  696. };
  697.  struct Border Border17 = {
  698.     -1,-1,    
  699.     2,1,JAM1,    
  700.     5,    
  701.     BorderVectors17,    
  702.     NULL    
  703. };
  704.  
  705.  struct IntuiText IText9 = {
  706.     2,1,JAM2,    
  707.     16,1,    
  708.     NULL,    
  709.     (UBYTE *)"Principal",    
  710.     NULL    
  711. };
  712.  
  713.  struct Gadget Gadget1 = {
  714.     &Gadget2,    
  715.     21,41,    
  716.     98,9,    
  717.     NULL,    
  718.     GADGIMMEDIATE+RELVERIFY+TOGGLESELECT,    
  719.     BOOLGADGET,    
  720.     (APTR)&Border17,    
  721.     NULL,    
  722.     &IText9,    
  723.     NULL,    
  724.     NULL,    
  725.     NULL,    
  726.     NULL    
  727. };
  728.  
  729. #define GadgetList1 Gadget1
  730.  
  731. struct IntuiText IText17 = {
  732.     2,1,JAM2,    
  733.     133,130,    
  734.     NULL,    
  735.     (UBYTE *)"Hit right Amiga-X to clear a box",    
  736.     NULL    
  737. };
  738.  
  739. struct IntuiText IText16 = {
  740.     2,1,JAM2,    
  741.     437,57,    
  742.     NULL,    
  743.     (UBYTE *)"month(s)",    
  744.     &IText17    
  745. };
  746.  
  747. struct IntuiText IText15 = {
  748.     2,1,JAM2,    
  749.     276,57,    
  750.     NULL,    
  751.     (UBYTE *)"Compounded over ",    
  752.     &IText16    
  753. };
  754.  
  755. struct IntuiText IText12 = {
  756.     2,1,JAM2,    
  757.     66,118,    
  758.     NULL,    
  759.     (UBYTE *)"STATUS:",    
  760.     &IText15    
  761. };
  762.  
  763. struct IntuiText IText11 = {
  764.     2,1,JAM2,    
  765.     23,21,    
  766.     NULL,    
  767.     (UBYTE *)"Mortgage Calculator v2.5  »**«  Michel Laliberté, August 1990",    
  768.     &IText12    
  769. };
  770.  
  771.  struct IntuiText IText10 = {
  772.     2,1,JAM2,    
  773.     292,88,    
  774.     NULL,    
  775.     (UBYTE *)"Interest",    
  776.     &IText11    
  777. };
  778.  
  779. #define IntuiTextList1 IText10
  780.  
  781.  struct NewWindow NewWindowStructure1 = {
  782.     26,36,    
  783.     543,143,    
  784.     0,1,    
  785.     GADGETUP+GADGETDOWN+CLOSEWINDOW+RAWKEY,    
  786.     WINDOWDRAG+WINDOWDEPTH+WINDOWCLOSE+ACTIVATE,    
  787.     &Gadget1,    
  788.     NULL,    
  789.     (UBYTE *)"MortCalc",    
  790.     NULL,    
  791.     NULL,    
  792.     5,5,    
  793.     640,200,    
  794.     WBENCHSCREEN    
  795. };
  796.  
  797.  
  798.